(read1): After #!, exit loop on eof.

diff --git a/src/ChangeLog b/src/ChangeLog
index 6fb8aaf31ffb81755e19f88476f688062b28d64f..3aa05b6bcdbf3c084e565885e4c15f31949e804d 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2003-03-14  Richard M. Stallman  <rms@gnu.org>
+
+       * lread.c (read1): After #!, exit loop on eof.
+
 2003-03-14  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
 
        * gtkutil.h: Add declaration for xg_frame_cleared.

diff --git a/src/lread.c b/src/lread.c
index 70f0a3f2f9bc20fe5eeddecdc138e3ac88d009d0..dfbbfeaad1ec3f88d04b7c69bc6c1f28e5823c28 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -2127,7 +2127,7 @@ read1 (readcharfun, pch, first_in_list)
        {
          /* #! appears at the beginning of an executable file.
             Skip the first line.  */
-         while (c != '\n')
+         while (c != '\n' && c >= 0)
            c = READCHAR;
          goto retry;
        }